VB的简单程序设计.`

来源：百度知道 编辑：UC知道 时间：2024/05/24 18:24:30
题目:用VB编写程序.输入20个数字,西安市其中奇数的个数和偶数的个数.

请大家帮个忙..谢谢!

s1 = 0
s2 = 0
For i = 1 To 20
a = InputBox("输入第" & i & "个", "输入20个数字")
If a Mod 2 = 0 Then
s1 = s1 + 1
Else
s2 = s2 + 1
End If
Next

Print "偶数个数:" & s1
Print "奇数个数:" & s2

dim i as integer
dim m as integer
dim n as integer

for i = 1 to 20
i = inputbox
if i mod 2 =0 then
m = m + 1
else
n = n + 1
end if
next i